/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.004 / xemacs-1 / xemacs-19.13 / lisp / eos / sun-eos-editor.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 35 35 3a 31 | 30 20 31 39 39 35 0a 3b | 14:55:1|0 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 65 78 |;; from |file /ex|
|00000060| 70 6f 72 74 2f 77 69 6c | 6c 6f 77 33 2f 78 65 6d |port/wil|low3/xem|
|00000070| 61 63 73 2d 31 39 2e 31 | 33 2d 72 65 6c 65 61 73 |acs-19.1|3-releas|
|00000080| 65 2f 65 64 69 74 6f 72 | 2f 6c 69 73 70 2f 65 6f |e/editor|/lisp/eo|
|00000090| 73 2f 73 75 6e 2d 65 6f | 73 2d 65 64 69 74 6f 72 |s/sun-eo|s-editor|
|000000a0| 2e 65 6c 0a 3b 3b 3b 20 | 65 6d 61 63 73 20 76 65 |.el.;;; |emacs ve|
|000000b0| 72 73 69 6f 6e 20 31 39 | 2e 31 33 20 58 45 6d 61 |rsion 19|.13 XEma|
|000000c0| 63 73 20 4c 75 63 69 64 | 2e 0a 3b 3b 3b 20 62 79 |cs Lucid|..;;; by|
|000000d0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 32 |tecomp v|ersion 2|
|000000e0| 2e 32 35 3b 20 31 2d 53 | 65 70 2d 39 34 2e 0a 3b |.25; 1-S|ep-94..;|
|000000f0| 3b 3b 20 6f 70 74 69 6d | 69 7a 61 74 69 6f 6e 20 |;; optim|ization |
|00000100| 69 73 20 6f 6e 2e 0a 3b | 3b 3b 20 74 68 69 73 20 |is on..;|;; this |
|00000110| 66 69 6c 65 20 75 73 65 | 73 20 6f 70 63 6f 64 65 |file use|s opcode|
|00000120| 73 20 77 68 69 63 68 20 | 64 6f 20 6e 6f 74 20 65 |s which |do not e|
|00000130| 78 69 73 74 20 69 6e 20 | 45 6d 61 63 73 20 31 38 |xist in |Emacs 18|
|00000140| 2e 0a 0a 28 69 66 20 28 | 61 6e 64 20 28 62 6f 75 |...(if (|and (bou|
|00000150| 6e 64 70 20 27 65 6d 61 | 63 73 2d 76 65 72 73 69 |ndp 'ema|cs-versi|
|00000160| 6f 6e 29 0a 09 20 28 6f | 72 20 28 61 6e 64 20 28 |on).. (o|r (and (|
|00000170| 62 6f 75 6e 64 70 20 27 | 65 70 6f 63 68 3a 3a 76 |boundp '|epoch::v|
|00000180| 65 72 73 69 6f 6e 29 20 | 65 70 6f 63 68 3a 3a 76 |ersion) |epoch::v|
|00000190| 65 72 73 69 6f 6e 29 0a | 09 20 20 20 20 20 28 73 |ersion).|.     (s|
|000001a0| 74 72 69 6e 67 2d 6c 65 | 73 73 70 20 65 6d 61 63 |tring-le|ssp emac|
|000001b0| 73 2d 76 65 72 73 69 6f | 6e 20 22 31 39 22 29 29 |s-versio|n "19"))|
|000001c0| 29 0a 20 20 20 20 28 65 | 72 72 6f 72 20 22 54 68 |).    (e|rror "Th|
|000001d0| 69 73 20 66 69 6c 65 20 | 77 61 73 20 63 6f 6d 70 |is file |was comp|
|000001e0| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 31 |iled for| Emacs 1|
|000001f0| 39 2e 22 29 29 0a 0a 28 | 62 79 74 65 2d 63 6f 64 |9."))..(|byte-cod|
|00000200| 65 20 22 c0 c1 c2 5c 22 | 88 c3 c4 4d 88 c5 c6 4d |e "...\"|...M...M|
|00000210| 88 c7 c8 4d 88 c9 ca 4d | 88 cb cc 4d 88 cd ce 4d |...M...M|...M...M|
|00000220| 88 cf d0 4d 88 d1 d2 4d | 88 d3 d4 4d 88 d5 d6 21 |...M...M|...M...!|
|00000230| 87 22 20 5b 72 65 71 75 | 69 72 65 20 65 6f 73 2d |." [requ|ire eos-|
|00000240| 63 6f 6d 6d 6f 6e 20 22 | 73 75 6e 2d 65 6f 73 2d |common "|sun-eos-|
|00000250| 63 6f 6d 6d 6f 6e 22 20 | 65 6f 73 3a 3a 65 64 69 |common" |eos::edi|
|00000260| 74 6f 72 2d 73 74 61 72 | 74 75 70 20 23 5b 6e 69 |tor-star|tup #[ni|
|00000270| 6c 20 22 c0 20 11 c2 20 | 13 c4 20 87 22 20 5b 65 |l ". .. |.. ." [e|
|00000280| 6f 73 3a 3a 63 72 65 61 | 74 65 2d 76 69 73 69 74 |os::crea|te-visit|
|00000290| 2d 66 69 6c 65 2d 70 61 | 74 74 65 72 6e 20 65 6f |-file-pa|ttern eo|
|000002a0| 73 3a 3a 76 69 73 69 74 | 2d 66 69 6c 65 2d 70 61 |s::visit|-file-pa|
|000002b0| 74 74 65 72 6e 20 65 6f | 73 3a 3a 63 72 65 61 74 |ttern eo|s::creat|
|000002c0| 65 2d 67 65 74 2d 73 72 | 63 2d 6c 69 6e 65 2d 70 |e-get-sr|c-line-p|
|000002d0| 61 74 74 65 72 6e 20 65 | 6f 73 3a 3a 67 65 74 2d |attern e|os::get-|
|000002e0| 73 72 63 2d 6c 69 6e 65 | 2d 70 61 74 74 65 72 6e |src-line|-pattern|
|000002f0| 20 65 6f 73 3a 3a 72 65 | 67 69 73 74 65 72 2d 67 | eos::re|gister-g|
|00000300| 65 74 2d 73 72 63 2d 6c | 69 6e 65 2d 70 61 74 74 |et-src-l|ine-patt|
|00000310| 65 72 6e 5d 20 31 5d 20 | 65 6f 73 3a 3a 76 69 73 |ern] 1] |eos::vis|
|00000320| 69 74 2d 66 69 6c 65 2d | 63 61 6c 6c 62 61 63 6b |it-file-|callback|
|00000330| 20 23 5b 28 6d 73 67 20 | 70 61 74 29 20 22 c0 09 | #[(msg |pat) "..|
|00000340| c2 c3 23 1c c5 c0 09 c6 | c7 23 21 1e 08 c9 0c 0e |..#.....|.#!.....|
|00000350| 08 ca 23 ac 84 cb cc 21 | 88 cd 09 21 2a 87 22 20 |..#....!|...!*." |
|00000360| 5b 67 65 74 2d 74 6f 6f | 6c 74 61 6c 6b 2d 6d 65 |[get-too|ltalk-me|
|00000370| 73 73 61 67 65 2d 61 74 | 74 72 69 62 75 74 65 20 |ssage-at|tribute |
|00000380| 6d 73 67 20 61 72 67 5f | 76 61 6c 20 31 20 66 69 |msg arg_|val 1 fi|
|00000390| 6c 65 6e 61 6d 65 20 72 | 65 61 64 20 61 72 67 5f |lename r|ead arg_|
|000003a0| 69 76 61 6c 20 32 20 6c | 69 6e 65 6e 6f 2d 64 6f |ival 2 l|ineno-do|
|000003b0| 74 20 65 6f 73 3a 3a 66 | 69 6e 64 2d 6c 69 6e 65 |t eos::f|ind-line|
|000003c0| 20 64 65 62 75 67 67 65 | 72 2d 76 69 73 69 74 20 | debugge|r-visit |
|000003d0| 6d 65 73 73 61 67 65 20 | 22 4e 6f 20 66 72 61 6d |message |"No fram|
|000003e0| 65 20 74 6f 20 73 65 6c | 65 63 74 22 20 72 65 74 |e to sel|ect" ret|
|000003f0| 75 72 6e 2d 74 6f 6f 6c | 74 61 6c 6b 2d 6d 65 73 |urn-tool|talk-mes|
|00000400| 73 61 67 65 5d 20 35 5d | 20 65 6f 73 3a 3a 63 72 |sage] 5]| eos::cr|
|00000410| 65 61 74 65 2d 76 69 73 | 69 74 2d 66 69 6c 65 2d |eate-vis|it-file-|
|00000420| 70 61 74 74 65 72 6e 20 | 23 5b 6e 69 6c 20 22 c0 |pattern |#[nil ".|
|00000430| 19 c2 09 21 29 87 22 20 | 5b 28 63 61 74 65 67 6f |...!)." |[(catego|
|00000440| 72 79 20 54 54 5f 48 41 | 4e 44 4c 45 20 73 63 6f |ry TT_HA|NDLE sco|
|00000450| 70 65 20 54 54 5f 53 45 | 53 53 49 4f 4e 20 63 6c |pe TT_SE|SSION cl|
|00000460| 61 73 73 20 54 54 5f 52 | 45 51 55 45 53 54 20 6f |ass TT_R|EQUEST o|
|00000470| 70 20 22 53 50 52 4f 5f | 56 69 73 69 74 5f 46 69 |p "SPRO_|Visit_Fi|
|00000480| 6c 65 22 20 63 61 6c 6c | 62 61 63 6b 20 65 6f 73 |le" call|back eos|
|00000490| 3a 3a 76 69 73 69 74 2d | 66 69 6c 65 2d 63 61 6c |::visit-|file-cal|
|000004a0| 6c 62 61 63 6b 29 20 70 | 61 74 74 65 72 6e 2d 64 |lback) p|attern-d|
|000004b0| 65 73 63 20 6d 61 6b 65 | 2d 74 6f 6f 6c 74 61 6c |esc make|-tooltal|
|000004c0| 6b 2d 70 61 74 74 65 72 | 6e 5d 20 33 5d 20 65 6f |k-patter|n] 3] eo|
|000004d0| 73 3a 3a 72 65 67 69 73 | 74 65 72 2d 76 69 73 69 |s::regis|ter-visi|
|000004e0| 74 2d 66 69 6c 65 2d 70 | 61 74 74 65 72 6e 20 23 |t-file-p|attern #|
|000004f0| 5b 6e 69 6c 20 22 c0 09 | 21 87 22 20 5b 72 65 67 |[nil "..|!." [reg|
|00000500| 69 73 74 65 72 2d 74 6f | 6f 6c 74 61 6c 6b 2d 70 |ister-to|oltalk-p|
|00000510| 61 74 74 65 72 6e 20 65 | 6f 73 3a 3a 76 69 73 69 |attern e|os::visi|
|00000520| 74 2d 66 69 6c 65 2d 70 | 61 74 74 65 72 6e 5d 20 |t-file-p|attern] |
|00000530| 32 5d 20 65 6f 73 3a 3a | 75 6e 72 65 67 69 73 74 |2] eos::|unregist|
|00000540| 65 72 2d 76 69 73 69 74 | 2d 66 69 6c 65 2d 70 61 |er-visit|-file-pa|
|00000550| 74 74 65 72 6e 20 23 5b | 6e 69 6c 20 22 c0 09 21 |ttern #[|nil "..!|
|00000560| 87 22 20 5b 75 6e 72 65 | 67 69 73 74 65 72 2d 74 |." [unre|gister-t|
|00000570| 6f 6f 6c 74 61 6c 6b 2d | 70 61 74 74 65 72 6e 20 |ooltalk-|pattern |
|00000580| 65 6f 73 3a 3a 76 69 73 | 69 74 2d 66 69 6c 65 2d |eos::vis|it-file-|
|00000590| 70 61 74 74 65 72 6e 5d | 20 32 5d 20 65 6f 73 3a |pattern]| 2] eos:|
|000005a0| 3a 67 65 74 2d 73 72 63 | 2d 6c 69 6e 65 2d 63 61 |:get-src|-line-ca|
|000005b0| 6c 6c 62 61 63 6b 20 23 | 5b 28 6d 73 67 20 70 61 |llback #|[(msg pa|
|000005c0| 74 29 20 22 c0 20 19 c2 | c3 c4 60 21 5c 22 1d c6 |t) ". ..|..`!\"..|
|000005d0| 09 0e 07 c8 c9 24 88 c6 | 0d 0e 07 c8 ca 24 88 cb |.....$..|.....$..|
|000005e0| 0e 07 21 2a 87 22 20 5b | 62 75 66 66 65 72 2d 66 |..!*." [|buffer-f|
|000005f0| 69 6c 65 2d 6e 61 6d 65 | 20 66 69 6c 65 6e 61 6d |ile-name| filenam|
|00000600| 65 20 66 6f 72 6d 61 74 | 20 22 25 64 22 20 65 6f |e format| "%d" eo|
|00000610| 73 3a 3a 6c 69 6e 65 2d | 61 74 20 6c 69 6e 65 6e |s::line-|at linen|
|00000620| 6f 20 73 65 74 2d 74 6f | 6f 6c 74 61 6c 6b 2d 6d |o set-to|oltalk-m|
|00000630| 65 73 73 61 67 65 2d 61 | 74 74 72 69 62 75 74 65 |essage-a|ttribute|
|00000640| 20 6d 73 67 20 61 72 67 | 5f 76 61 6c 20 31 20 32 | msg arg|_val 1 2|
|00000650| 20 72 65 74 75 72 6e 2d | 74 6f 6f 6c 74 61 6c 6b | return-|tooltalk|
|00000660| 2d 6d 65 73 73 61 67 65 | 5d 20 35 5d 20 65 6f 73 |-message|] 5] eos|
|00000670| 3a 3a 63 72 65 61 74 65 | 2d 67 65 74 2d 73 72 63 |::create|-get-src|
|00000680| 2d 6c 69 6e 65 2d 70 61 | 74 74 65 72 6e 20 23 5b |-line-pa|ttern #[|
|00000690| 6e 69 6c 20 22 c0 19 c2 | 09 21 29 87 22 20 5b 28 |nil "...|.!)." [(|
|000006a0| 63 61 74 65 67 6f 72 79 | 20 54 54 5f 48 41 4e 44 |category| TT_HAND|
|000006b0| 4c 45 20 73 63 6f 70 65 | 20 54 54 5f 53 45 53 53 |LE scope| TT_SESS|
|000006c0| 49 4f 4e 20 63 6c 61 73 | 73 20 54 54 5f 52 45 51 |ION clas|s TT_REQ|
|000006d0| 55 45 53 54 20 6f 70 20 | 22 53 50 52 4f 5f 47 65 |UEST op |"SPRO_Ge|
|000006e0| 74 5f 53 72 63 5f 4c 69 | 6e 65 22 20 63 61 6c 6c |t_Src_Li|ne" call|
|000006f0| 62 61 63 6b 20 65 6f 73 | 3a 3a 67 65 74 2d 73 72 |back eos|::get-sr|
|00000700| 63 2d 6c 69 6e 65 2d 63 | 61 6c 6c 62 61 63 6b 29 |c-line-c|allback)|
|00000710| 20 70 61 74 74 65 72 6e | 2d 64 65 73 63 20 6d 61 | pattern|-desc ma|
|00000720| 6b 65 2d 74 6f 6f 6c 74 | 61 6c 6b 2d 70 61 74 74 |ke-toolt|alk-patt|
|00000730| 65 72 6e 5d 20 33 5d 20 | 65 6f 73 3a 3a 72 65 67 |ern] 3] |eos::reg|
|00000740| 69 73 74 65 72 2d 67 65 | 74 2d 73 72 63 2d 6c 69 |ister-ge|t-src-li|
|00000750| 6e 65 2d 70 61 74 74 65 | 72 6e 20 23 5b 6e 69 6c |ne-patte|rn #[nil|
|00000760| 20 22 c0 09 21 87 22 20 | 5b 72 65 67 69 73 74 65 | "..!." |[registe|
|00000770| 72 2d 74 6f 6f 6c 74 61 | 6c 6b 2d 70 61 74 74 65 |r-toolta|lk-patte|
|00000780| 72 6e 20 65 6f 73 3a 3a | 67 65 74 2d 73 72 63 2d |rn eos::|get-src-|
|00000790| 6c 69 6e 65 2d 70 61 74 | 74 65 72 6e 5d 20 32 5d |line-pat|tern] 2]|
|000007a0| 20 65 6f 73 3a 3a 75 6e | 72 65 67 69 73 74 65 72 | eos::un|register|
|000007b0| 2d 67 65 74 2d 73 72 63 | 2d 6c 69 6e 65 2d 70 61 |-get-src|-line-pa|
|000007c0| 74 74 65 72 6e 20 23 5b | 6e 69 6c 20 22 c0 09 21 |ttern #[|nil "..!|
|000007d0| 87 22 20 5b 75 6e 72 65 | 67 69 73 74 65 72 2d 74 |." [unre|gister-t|
|000007e0| 6f 6f 6c 74 61 6c 6b 2d | 70 61 74 74 65 72 6e 20 |ooltalk-|pattern |
|000007f0| 65 6f 73 3a 3a 67 65 74 | 2d 73 72 63 2d 6c 69 6e |eos::get|-src-lin|
|00000800| 65 2d 70 61 74 74 65 72 | 6e 5d 20 32 5d 20 70 72 |e-patter|n] 2] pr|
|00000810| 6f 76 69 64 65 20 65 6f | 73 2d 65 64 69 74 6f 72 |ovide eo|s-editor|
|00000820| 5d 20 33 29 0a          |                         |] 3).   |        |
+--------+-------------------------+-------------------------+--------+--------+